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DATOUT: A SIMPLE ROUTINE FOR PRINTING 
SEQUENTIAL DATA AS AN ARRAY 


DECUS Program Library Write-up 


DECUS No. 8 


Minimum Hardware: Basic PDP-8 with ASR-33 teletype 
Storage Requirements: 69 locations 

Subroutines Required: Digital's Unsigned Decimal Print DEC 8-22-U 
DESCRIPTION 

DATOUT enables the user to format and type on the teletype decimal integer data 
(single precision). Using DATOUT, sequentially stored octal numbers are converted 
to decimal integers (by DEC 8-22-U, required) and may be printed up to 14 per line 
and up to 4096 lines (with the limitation being only computer storage). Provision is 
made whereby line numbers may be generated and printed by DATOUT; however, if 
line numbers are printed, only thirteen other data may be printed per line. 
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/GENERAL DATA PRINT ROUTINE 

/REQUIRES DEC 8-22-U UNSIGNED DECIMAL PRINT 

/THE STARTING LOCATION OF DEC 8-22-U GOES IN IDECPRT 

/CALL JMS DATOUT 

/CALL+1 IS ADDRESS OF START OF DATA 
/CALL+2 IS NUMBER OF LINES TO PRINT 
/CALL+3: BIT 0 =] IF TRIAL * TO BE PRINTED 
/ BITS 8-11 GIVE OCTAL * OF DATA PER LINE 

/RETURN TO CALL+4 


0200 

0000 

DATOUT, 

/ 


020 ] 

7300 


CLA CLL 


0202 

3276 


DCA TRNO 

/TRIAL NUMBER =/ 

0203 

1 600 


TAD 1DATOUT 

/GET STARTING ADDRESS OF DATA 

0204 

3277 


DCA DATGET 


0205 

2200 


ISZ DATOUT 

/GET # OF LINES TO TYPE 

0206 

16// 


TAD 1 DATOUT 


0207 

7/41 


CIA 


02 ) 0 

33// 


DCA NOLINE 

/GET # OF DATA PER LINE 

02 ]] 

22// 


ISZ DATOUT 

02 ] 2 

16// 


TAD 1DATOUT 


02 ] 3 

/3/1 


AND MSK1 


02 ] 4 

7/41 


CIA 


02 ] 5 

33/2 


DCA DATLN 

/DATLN=#OF DATA PER LINE 

02 ] 6 

16// 


TAD 1 DATOUT 

/GET BIT/ 

02 ] 7 

7//4 


RAL 

/PUT INTO LINK 

0220 

7204 


CLA RAL 

/PUT INTO BIT 11 

022 ] 

33/3 


DCA TRPRT 

/=/ IF NO PRINT OF TRIALS 

0222 

4251 

OTHLINE, 

JMS CRLF 


0223 

13/3 


TAD TRPRT 


0224 

764/ 


SZA CLA 


0225 

2276 


ISZ TRNO 


0226 

1276 


TAD TRNO 


0227 

745/ 


SNA 


0230 

5233 


JMP .+3 


023 ] 

47/5 


JMS 1 IDECPRT 


0232 

4262 


JMS SPACE 


0233 

73// 


CLA CLL 

/ABOVE PRINTS TRIAL * IF DESIRED 

0234 

13/2 


TAD DATLN 


0235 

33/4 


DCA LNCTR 


0236 

1677 

MORLN, 

TAD 1 DATGET 


0237 

47/5 


JMS 1 IDECPRT 


0240 

4262 


JMS SPACE 

/PRINT DATA 

024 ] 

2277 


ISZ DATGET 

/GET NEXT DATUM 

0242 

23/4 


ISZ LNCTR 

/DO ALL OF LINE? 

0243 

5236 


JMP MORLN 

/NO, DO MORE 

0244 

23// 


ISZ NOLINE 

/YES, DO ALL LINES? 

0245 

5222 


JMP OTHLINE 

/NO DO ANOTHER LINE 

0246 

4251 


JMS CRLF 

/FINISH WITH CR LF 

0247 

2200 


ISZ DATOUT 

/SETUP RETURN ADDRESS 

0250 

5600 


JMP 1 DATOUT 







2 









/ 


$251 0000 

CRLF, 

$ 

0252 7300 


CLA CLL 

0253 1 260 


TAD CR 

0254 4270 


JMS TYPE 

0255 1261 


TAD LF 

$256 427$ 


JMS TYPE 

$257 5651 


JMP 1 CRLF 

$26$ $215 

CR, 

$215 

$261 $212 

LF, 

$212 

0262 0000 

SPACE, 

$ 

0263 7300 


CLA CLL 

0264 1267 


TAD SPC 

$265 427$ 


JMS TYPE 

$266 5662 


JMP 1 SPACE 

$267 $24$ 

SPC, 

$24$ 

$27$ $$$$ 

TYPE, 

$ 

$271 6$41 


TSF 

$272 5271 


JMP .=1 

$273 6046 


TLS 

0274 7300 


CLA CLL 

0275 5670 


JMP 1 TYPE 

0276 0000 


TRNO,$ 

0277 0000 


DATGET,$ 

0300 0000 


NOLINE,$ 

0301 00 ] 7 


MSK1 ,$$17 

0302 0000 


DATLN,$ 

0303 0000 


TRPRT,$ 

0304 0000 


LNCTR,$ 

0305 0275 


IDECPRT,$275 

CR 

$26$ 


CRLF 

$251 


DATGET 

0277 


DATLN 

0302 


DATOUT 

0200 


IDECPR 

0305 


LF 

$261 


LNCTR 

$3$4 


MORLN 

$236 


MSK1 

$3$1 


NOLINE 

$3$$ 


OTHLIN 

$222 


SPACE 

$262 


SPC 

$267 


TRNO 

$276 


TRPRT 

$3$3 


TYPE 

$27$ 



/STARTING LOCATION OF DEC PRINT 
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